home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’87 / Source ƒ.sit / Source ƒ / Pascal ƒ / Directory Massager / UglyMassage.Pas < prev   
MacBinary  |  1987-03-01  |  2.4 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert TheDraw Pascal screen Image (image/theDrawPascalScreenImage) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Mar 1 09:27:35 1987, modified Sun Mar 1 09:27:35 1987, creator Macintosh Edit, type ASCII, 1915 bytes "UglyMassage.Pas" , at 0x7fb 348 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 55 67 6c 79 4d 61 | 73 73 61 67 65 2e 50 61 |..UglyMa|ssage.Pa|
|00000010| 73 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 07 7b 00 | 00 01 5c 9c 6d f5 d7 9c |......{.|..\.m...|
|00000060| 6d f5 d7 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |m.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 54 a3 00 00 |........|....T...|
|00000080| 70 72 6f 67 72 61 6d 20 | 47 65 6e 69 65 44 69 72 |program |GenieDir|
|00000090| 28 49 6e 70 75 74 2c 4f | 75 74 70 75 74 29 3b 7b |(Input,O|utput);{|
|000000a0| 4e 6f 76 65 6d 62 65 72 | 20 33 30 2c 31 39 38 36 |November| 30,1986|
|000000b0| 7d 0d 20 0d 20 76 61 72 | 0d 20 20 73 6f 75 72 63 |}. . var|.  sourc|
|000000c0| 65 20 3a 20 74 65 78 74 | 3b 0d 20 20 66 69 6e 69 |e : text|;.  fini|
|000000d0| 73 68 20 3a 20 74 65 78 | 74 3b 0d 20 20 69 6e 64 |sh : tex|t;.  ind|
|000000e0| 65 78 20 3a 20 69 6e 74 | 65 67 65 72 3b 0d 20 20 |ex : int|eger;.  |
|000000f0| 66 69 72 73 74 6c 69 6e | 65 2c 20 73 65 63 6f 6e |firstlin|e, secon|
|00000100| 64 6c 69 6e 65 2c 20 69 | 74 2c 20 6f 74 20 3a 20 |dline, i|t, ot : |
|00000110| 73 74 72 69 6e 67 3b 0d | 20 20 79 65 74 20 3a 20 |string;.|  yet : |
|00000120| 62 6f 6f 6c 65 61 6e 3b | 0d 20 20 69 74 65 6d 20 |boolean;|.  item |
|00000130| 3a 20 61 72 72 61 79 5b | 30 2e 2e 37 5d 20 6f 66 |: array[|0..7] of|
|00000140| 20 73 74 72 69 6e 67 3b | 0d 20 70 72 6f 63 65 64 | string;|. proced|
|00000150| 75 72 65 20 66 69 6e 64 | 3b 0d 20 76 61 72 20 68 |ure find|;. var h|
|00000160| 6d 6d 20 3a 20 73 74 72 | 69 6e 67 3b 0d 20 62 65 |mm : str|ing;. be|
|00000170| 67 69 6e 7b 70 72 6f 63 | 65 64 75 72 65 20 66 69 |gin{proc|edure fi|
|00000180| 6e 64 7d 0d 20 20 72 65 | 70 65 61 74 0d 20 20 20 |nd}.  re|peat.   |
|00000190| 79 65 74 20 3a 3d 20 66 | 61 6c 73 65 3b 0d 20 20 |yet := f|alse;.  |
|000001a0| 20 72 65 61 64 6c 6e 28 | 73 6f 75 72 63 65 2c 20 | readln(|source, |
|000001b0| 66 69 72 73 74 6c 69 6e | 65 29 3b 0d 20 20 20 69 |firstlin|e);.   i|
|000001c0| 66 20 6c 65 6e 67 74 68 | 28 66 69 72 73 74 6c 69 |f length|(firstli|
|000001d0| 6e 65 29 20 3c 20 34 20 | 74 68 65 6e 0d 20 20 20 |ne) < 4 |then.   |
|000001e0| 20 66 69 72 73 74 6c 69 | 6e 65 20 3a 3d 20 27 78 | firstli|ne := 'x|
|000001f0| 78 78 78 27 3b 0d 20 20 | 20 68 6d 6d 20 3a 3d 20 |xxx';.  | hmm := |
|00000200| 63 6f 70 79 28 66 69 72 | 73 74 6c 69 6e 65 2c 34 |copy(fir|stline,4|
|00000210| 2c 31 29 3b 0d 69 66 20 | 28 28 68 6d 6d 20 3e 27 |,1);.if |((hmm >'|
|00000220| 2f 27 29 61 6e 64 28 68 | 6d 6d 3c 27 3a 27 29 29 |/')and(h|mm<':'))|
|00000230| 20 74 68 65 6e 0d 20 20 | 20 20 79 65 74 20 3a 3d | then.  |  yet :=|
|00000240| 20 74 72 75 65 3b 0d 20 | 20 20 20 77 72 69 74 65 | true;. |   write|
|00000250| 6c 6e 28 68 6d 6d 2c 27 | 20 27 2c 79 65 74 29 3b |ln(hmm,'| ',yet);|
|00000260| 0d 20 20 20 20 69 66 20 | 65 6f 66 28 73 6f 75 72 |.    if |eof(sour|
|00000270| 63 65 29 20 74 68 65 6e | 20 79 65 74 20 3a 3d 20 |ce) then| yet := |
|00000280| 74 72 75 65 3b 0d 20 20 | 75 6e 74 69 6c 20 79 65 |true;.  |until ye|
|00000290| 74 3b 0d 20 20 69 66 20 | 65 6f 66 28 73 6f 75 72 |t;.  if |eof(sour|
|000002a0| 63 65 29 20 74 68 65 6e | 0d 20 20 20 73 65 63 6f |ce) then|.   seco|
|000002b0| 6e 64 6c 69 6e 65 20 3a | 3d 20 27 20 20 20 20 20 |ndline :|= '     |
|000002c0| 20 44 65 73 63 3a 20 6c | 6f 73 74 20 74 68 65 20 | Desc: l|ost the |
|000002d0| 64 65 73 63 72 69 70 74 | 69 6f 6e 27 0d 20 20 65 |descript|ion'.  e|
|000002e0| 6c 73 65 0d 20 20 20 72 | 65 61 64 6c 6e 28 73 6f |lse.   r|eadln(so|
|000002f0| 75 72 63 65 2c 20 73 65 | 63 6f 6e 64 6c 69 6e 65 |urce, se|condline|
|00000300| 29 3b 0d 20 65 6e 64 3b | 7b 6f 66 20 70 72 6f 63 |);. end;|{of proc|
|00000310| 65 64 75 72 65 20 66 69 | 6e 64 7d 0d 20 70 72 6f |edure fi|nd}. pro|
|00000320| 63 65 64 75 72 65 20 70 | 65 65 6c 3b 0d 20 20 76 |cedure p|eel;.  v|
|00000330| 61 72 0d 20 20 20 69 6e | 64 65 78 20 3a 20 69 6e |ar.   in|dex : in|
|00000340| 74 65 67 65 72 3b 0d 20 | 62 65 67 69 6e 7b 70 72 |teger;. |begin{pr|
|00000350| 6f 63 65 64 75 72 65 20 | 70 65 65 6c 7d 0d 0d 20 |ocedure |peel}.. |
|00000360| 20 69 74 65 6d 5b 30 5d | 20 3a 3d 20 63 6f 70 79 | item[0]| := copy|
|00000370| 28 66 69 72 73 74 6c 69 | 6e 65 2c 20 31 2c 20 36 |(firstli|ne, 1, 6|
|00000380| 29 3b 0d 20 20 69 74 65 | 6d 5b 31 5d 20 3a 3d 20 |);.  ite|m[1] := |
|00000390| 63 6f 70 79 28 66 69 72 | 73 74 6c 69 6e 65 2c 20 |copy(fir|stline, |
|000003a0| 37 2c 20 32 35 29 3b 0d | 20 20 69 74 65 6d 5b 32 |7, 25);.|  item[2|
|000003b0| 5d 20 3a 3d 20 63 6f 70 | 79 28 66 69 72 73 74 6c |] := cop|y(firstl|
|000003c0| 69 6e 65 2c 20 33 32 2c | 20 31 35 29 3b 0d 20 20 |ine, 32,| 15);.  |
|000003d0| 69 74 65 6d 5b 33 5d 20 | 3a 3d 20 63 6f 70 79 28 |item[3] |:= copy(|
|000003e0| 66 69 72 73 74 6c 69 6e | 65 2c 20 34 37 2c 20 37 |firstlin|e, 47, 7|
|000003f0| 29 3b 0d 20 20 69 74 65 | 6d 5b 34 5d 20 3a 3d 20 |);.  ite|m[4] := |
|00000400| 63 6f 70 79 28 66 69 72 | 73 74 6c 69 6e 65 2c 20 |copy(fir|stline, |
|00000410| 35 34 2c 20 38 29 3b 0d | 20 20 69 74 65 6d 5b 35 |54, 8);.|  item[5|
|00000420| 5d 20 3a 3d 20 63 6f 70 | 79 28 66 69 72 73 74 6c |] := cop|y(firstl|
|00000430| 69 6e 65 2c 20 36 32 2c | 20 37 29 3b 0d 20 20 69 |ine, 62,| 7);.  i|
|00000440| 74 65 6d 5b 36 5d 20 3a | 3d 20 63 6f 70 79 28 66 |tem[6] :|= copy(f|
|00000450| 69 72 73 74 6c 69 6e 65 | 2c 20 36 39 2c 20 33 29 |irstline|, 69, 3)|
|00000460| 3b 0d 20 20 69 74 65 6d | 5b 37 5d 20 3a 3d 20 63 |;.  item|[7] := c|
|00000470| 6f 70 79 28 73 65 63 6f | 6e 64 6c 69 6e 65 2c 20 |opy(seco|ndline, |
|00000480| 31 33 2c 20 34 30 29 3b | 0d 20 20 66 6f 72 20 69 |13, 40);|.  for i|
|00000490| 6e 64 65 78 20 3a 3d 20 | 30 20 74 6f 20 37 20 64 |ndex := |0 to 7 d|
|000004a0| 6f 0d 20 20 20 62 65 67 | 69 6e 7b 63 75 74 20 73 |o.   beg|in{cut s|
|000004b0| 70 61 63 65 73 7d 0d 20 | 20 20 20 77 68 69 6c 65 |paces}. |   while|
|000004c0| 20 70 6f 73 28 27 20 27 | 2c 20 69 74 65 6d 5b 69 | pos(' '|, item[i|
|000004d0| 6e 64 65 78 5d 29 20 3d | 20 31 20 64 6f 0d 20 20 |ndex]) =| 1 do.  |
|000004e0| 20 20 20 64 65 6c 65 74 | 65 28 69 74 65 6d 5b 69 |   delet|e(item[i|
|000004f0| 6e 64 65 78 5d 2c 20 31 | 2c 20 31 29 3b 0d 20 20 |ndex], 1|, 1);.  |
|00000500| 20 20 77 68 69 6c 65 20 | 28 63 6f 70 79 28 69 74 |  while |(copy(it|
|00000510| 65 6d 5b 69 6e 64 65 78 | 5d 2c 20 6c 65 6e 67 74 |em[index|], lengt|
|00000520| 68 28 69 74 65 6d 5b 69 | 6e 64 65 78 5d 29 2c 20 |h(item[i|ndex]), |
|00000530| 31 29 20 3d 20 27 20 27 | 29 20 64 6f 0d 20 20 20 |1) = ' '|) do.   |
|00000540| 20 20 64 65 6c 65 74 65 | 28 69 74 65 6d 5b 69 6e |  delete|(item[in|
|00000550| 64 65 78 5d 2c 20 6c 65 | 6e 67 74 68 28 69 74 65 |dex], le|ngth(ite|
|00000560| 6d 5b 69 6e 64 65 78 5d | 29 2c 20 31 29 3b 0d 20 |m[index]|), 1);. |
|00000570| 20 20 65 6e 64 3b 7b 6f | 66 20 63 75 74 20 73 70 |  end;{o|f cut sp|
|00000580| 61 63 65 73 7d 0d 20 20 | 66 6f 72 20 69 6e 64 65 |aces}.  |for inde|
|00000590| 78 20 3a 3d 20 30 20 74 | 6f 20 36 20 64 6f 7b 61 |x := 0 t|o 6 do{a|
|000005a0| 64 64 20 74 61 62 20 64 | 65 6c 69 6d 69 74 65 72 |dd tab d|elimiter|
|000005b0| 73 7d 0d 20 20 20 69 74 | 65 6d 5b 69 6e 64 65 78 |s}.   it|em[index|
|000005c0| 5d 20 3a 3d 20 63 6f 6e | 63 61 74 28 69 74 65 6d |] := con|cat(item|
|000005d0| 5b 69 6e 64 65 78 5d 2c | 20 63 68 72 28 39 29 29 |[index],| chr(9))|
|000005e0| 3b 0d 20 65 6e 64 3b 7b | 6f 66 20 70 72 6f 63 65 |;. end;{|of proce|
|000005f0| 64 75 72 65 20 70 65 65 | 6c 7d 0d 0d 62 65 67 69 |dure pee|l}..begi|
|00000600| 6e 20 7b 6d 61 69 6e 20 | 70 72 6f 67 72 61 6d 7d |n {main |program}|
|00000610| 0d 57 72 69 74 65 6c 6e | 28 27 57 68 61 74 20 74 |.Writeln|('What t|
|00000620| 65 78 74 66 69 6c 65 20 | 74 6f 20 6d 61 73 73 61 |extfile |to massa|
|00000630| 67 65 3f 27 29 3b 0d 52 | 65 61 64 6c 6e 28 69 74 |ge?');.R|eadln(it|
|00000640| 29 3b 0d 69 66 20 69 74 | 20 3c 3e 20 27 27 20 74 |);.if it| <> '' t|
|00000650| 68 65 6e 0d 20 20 62 65 | 67 69 6e 7b 61 6e 79 74 |hen.  be|gin{anyt|
|00000660| 68 69 6e 67 20 74 6f 20 | 64 6f 7d 0d 20 20 20 52 |hing to |do}.   R|
|00000670| 65 73 65 74 28 73 6f 75 | 72 63 65 2c 20 69 74 29 |eset(sou|rce, it)|
|00000680| 3b 0d 20 20 20 57 72 69 | 74 65 6c 6e 28 27 57 68 |;.   Wri|teln('Wh|
|00000690| 61 74 20 64 65 73 74 69 | 6e 61 74 69 6f 6e 20 74 |at desti|nation t|
|000006a0| 65 78 74 66 69 6c 65 3f | 27 29 3b 0d 20 20 20 52 |extfile?|');.   R|
|000006b0| 65 61 64 6c 6e 28 6f 74 | 29 3b 0d 20 20 20 72 65 |eadln(ot|);.   re|
|000006c0| 77 72 69 74 65 28 66 69 | 6e 69 73 68 2c 20 6f 74 |write(fi|nish, ot|
|000006d0| 29 3b 0d 20 20 20 77 68 | 69 6c 65 20 6e 6f 74 20 |);.   wh|ile not |
|000006e0| 65 6f 66 28 73 6f 75 72 | 63 65 29 20 64 6f 0d 20 |eof(sour|ce) do. |
|000006f0| 20 20 20 62 65 67 69 6e | 0d 20 20 20 20 20 66 69 |   begin|.     fi|
|00000700| 6e 64 3b 0d 20 20 20 20 | 20 70 65 65 6c 3b 0d 20 |nd;.    | peel;. |
|00000710| 20 20 20 20 66 6f 72 20 | 69 6e 64 65 78 20 3a 3d |    for |index :=|
|00000720| 20 30 20 74 6f 20 36 20 | 64 6f 0d 20 20 20 20 20 | 0 to 6 |do.     |
|00000730| 62 65 67 69 6e 0d 20 20 | 20 20 20 77 72 69 74 65 |begin.  |   write|
|00000740| 28 66 69 6e 69 73 68 2c | 69 74 65 6d 5b 69 6e 64 |(finish,|item[ind|
|00000750| 65 78 5d 29 3b 0d 20 20 | 20 20 20 20 77 72 69 74 |ex]);.  |    writ|
|00000760| 65 28 69 74 65 6d 5b 69 | 6e 64 65 78 5d 29 3b 0d |e(item[i|ndex]);.|
|00000770| 20 20 20 20 20 65 6e 64 | 3b 0d 20 20 20 20 20 77 |     end|;.     w|
|00000780| 72 69 74 65 6c 6e 28 69 | 74 65 6d 5b 37 5d 29 3b |riteln(i|tem[7]);|
|00000790| 0d 20 20 20 20 20 77 72 | 69 74 65 6c 6e 28 66 69 |.     wr|iteln(fi|
|000007a0| 6e 69 73 68 2c 20 69 74 | 65 6d 5b 37 5d 29 3b 0d |nish, it|em[7]);.|
|000007b0| 20 20 20 20 65 6e 64 3b | 0d 20 20 20 63 6c 6f 73 |    end;|.   clos|
|000007c0| 65 28 73 6f 75 72 63 65 | 29 3b 0d 20 20 20 63 6c |e(source|);.   cl|
|000007d0| 6f 73 65 28 66 69 6e 69 | 73 68 29 3b 0d 20 20 65 |ose(fini|sh);.  e|
|000007e0| 6e 64 3b 7b 6f 66 20 61 | 6e 79 74 68 69 6e 67 20 |nd;{of a|nything |
|000007f0| 74 6f 20 64 6f 7d 0d 65 | 6e 64 2e 00 00 00 00 00 |to do}.e|nd......|
|00000800| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000810| 02 9a 60 0a 00 00 43 44 | 45 46 00 00 00 01 4e 56 |..`...CD|EF....NV|
|00000820| ff e2 48 e7 1f 78 0c 6e | 00 03 00 0c 6c 30 48 6e |..H..x.n|....l0Hn|
|00000830| 0f 55 67 6c 79 4d 61 73 | 73 61 67 65 2e 50 61 73 |.UglyMas|sage.Pas|
|00000840| 02 00 00 00 54 45 58 54 | 45 44 49 54 01 00 ff ff |....TEXT|EDIT....|
|00000850| 00 00 54 45 58 54 45 44 | 49 54 01 00 ff ff ff ff |..TEXTED|IT......|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 9b f5 d3 9d 00 00 | 07 7b 00 00 01 5c 49 e8 |........|.{...\I.|
|00000880| 00 08 4a 06 67 04 4a 03 | 66 06 2f 0c 2f 04 a8 b2 |..J.g.J.|f././...|
|00000890| 20 55 20 50 26 28 00 44 | 30 07 3e 28 00 4a 51 40 | U P&(.D|0.>(.JQ@|
|000008a0| 6c 0a 42 a8 00 44 31 7c | 00 0c 00 4a 2f 28 00 1c |l.B..D1||...J/(..|
|000008b0| 42 a7 a8 d8 24 57 a8 7a | 20 53 48 68 00 08 a8 7b |B...$W.z| SHh...{|
|000008c0| 2f 0a 2f 2f 00 04 a8 e4 | 20 53 48 68 00 28 42 67 |/.//....| SHh.(Bg|
|000008d0| 48 68 00 28 a8 8c 30 1f | 20 53 49 e8 00 08 4a 46 |Hh.(..0.| SI...JF|
|000008e0| 66 00 00 96 32 2c 00 06 | 92 6c 00 02 92 40 e2 41 |f...2,..|.l...@.A|
|000008f0| d2 6c 00 02 3f 01 30 2c | 00 04 32 00 90 54 04 40 |.l..?.0,|..2..T.@|
|00000900| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 52 00 00 |.......M|onacoR..|
|00000910| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000920| 00 16 00 00 00 46 00 00 | cc 28 01 7a 00 00 00 1c |.....F..|.(.z....|
|00000930| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000940| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 7f 2e |........|........|
|00000950| 03 ec ff ff 00 00 00 0e | 00 01 7f 1a 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+